home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / ins_msb / 9005 / stfill.bas < prev    next >
BASIC Source File  |  1990-05-01  |  544b  |  23 lines
  1. 'PROGRAM - STFILL.BAS
  2.  
  3. ' Demonstrate the use of FillStringArray
  4.     
  5. DEFINT A-Z
  6. DIM Array$(10)
  7.  
  8. PRINT "Free string space before:";FRE(Array$(1))
  9. PRINT "STACK before            :";STACK
  10.  
  11. ' Note the "S" in the CALLS syntax. This forces
  12. ' BC to pass the pointer to the array descriptors
  13. ' instead of just passing a pointer to a *copy*
  14. ' of the first descriptor.
  15.  
  16. CALLS FillStringArray(Array$(1))
  17. FOR I = 1 TO 10
  18.     PRINT Array$(I)
  19. NEXT
  20.  
  21. PRINT "Free string space after :";FRE(Array$(1))
  22. PRINT "STACK after             :";STACK
  23.